home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / disk / cache / fda.lha / FDA_Demo / Install_FDA < prev    next >
Text File  |  2000-11-01  |  24KB  |  1,032 lines
  1. ;============================================================================;
  2. ;=  $VER: 2.4 Future Drive Accelerator Installscript by Martin Tauchmann    =;
  3. ;============================================================================;
  4.  
  5. ;C:WBStarter Devel:FDA_link/FDA_Demo/Install-FDA.deutsch
  6.  
  7. (set #Ver ("3.2"))
  8.  
  9. ;================================= ENGLISH ==================================;
  10.  
  11. (set #bad-kick "You must be using Kickstart 2.04+ to use FDA!")
  12.  
  13. (set #install-start
  14.     (cat
  15.         "\nWelcome to Future Drive Accelerator V"#Ver" installation utility.\n\n"
  16.         "Written and performed by Martin Tauchmann\n\n"
  17.         "The newest fdaupdate.lha can be found at http://MartinTauchmann.home.pages.de"
  18.     )
  19. )
  20.  
  21. (set #where-FDA "Where would you like to install FDA and FDAView?\nI will not create a directory.\nAn installation to the \"SYS:WBStartup\" Drawer, is later possible.")
  22.  
  23. (set #where-FDA-help
  24.     (cat
  25.         "This is the destination directory of FDA and FDAView."
  26.         " SYS:System is a good place"
  27.     )
  28. )
  29.  
  30. (set #install-select
  31.     (cat
  32.         "Please select the different parts of FDA that you"
  33.         " would like to install:"
  34.     )
  35. )
  36.  
  37. (set #install-select-help
  38.     (cat
  39.            "Future Drive Accelerator :\n"
  40.            "\n"
  41.            "ca. 32 KB\n"
  42.            "\n"
  43.            "\n"
  44.            "Future Drive Accelerator Guide, HTMl, DVI, PS, texi :\n"
  45.            " with Statistic-Program"
  46.            "\n"
  47.            "ca. 270 KB\n"
  48.            "\n"
  49.            "\n"
  50.            "Future Drive Accelerator Preferences :\n"
  51.            "\n"
  52.            "ca. 40 KB\n"
  53.            "\n"
  54.            "\n"
  55.            "Future Drive Accelerator Viewer :\n"
  56.            "\n"
  57.            "ca. 22 KB\n"
  58.     )
  59. )
  60.  
  61. (set #item-FDA "FDA Program")
  62. (set #item-doc "Future Drive Accelerator Documentation")
  63. (set #item-FDAprefs "Future Drive Accelerator Preferences")
  64. (set #item-FDAView "Future Drive Accelerator Viewer")
  65.  
  66.  
  67. (set #which-CPU
  68.     (cat
  69.         "Choose the FDA Processor-Version you would like installed.\n"
  70.         "This Amiga is running with a MC " (DATABASE "cpu")
  71.     )
  72. )
  73.  
  74. (set #where-doc "Where would you like to install the Guide and the Statistics? I create a Directory `FDAdoc´")
  75.  
  76. (set #where-FDAprefs "Where would you like to install FDA Preferences editor?")
  77.  
  78. (set #where-FDAprefs-help
  79.     (cat
  80.         "This is the destination directory of FDA Preferences editor."
  81.         " Normally ALL preferences editors are in SYS:Prefs !"
  82.     )
  83. )
  84.  
  85.  
  86. (set #doc-select-Lang
  87.     (cat
  88.         "Choose the language of the documentation"
  89.         " you would like installed.\n"
  90.     )
  91. )
  92.  
  93. (set #doc-select
  94.     (cat
  95.         "Choose the format of the documentation"
  96.         " you would like installed.\n"
  97.     )
  98. )
  99.  
  100.  
  101. (set #doc-select-help
  102.     (cat
  103.         "Guide :\n"
  104.         "Need MultiView or AmigaGuide.\n"
  105.         "\n"
  106.         "DVI (TeX) : (only in extra-archive)\n"
  107.         "Need ShowDVI from example: PasTeX.\n"
  108.         "\n"
  109.         "PostScript : (only in extra-archive)\n"
  110.         "Need HWG-Post or Ghostscript to read it online,\n"
  111.         "or an PostScript Printer.\n"
  112.         "\n"
  113.         "HTML :\n"
  114.         "Need an WWW-Browser exaples: AmiWeb, Visage, IBrowse, Lynx.\n"
  115.         "\n"
  116.         "TeXinfo : (only in extra-archive)\n"
  117.         "Need texinfo from GeekGadget, only neccesery for translations.\n"
  118.     )
  119. )
  120.  
  121.  
  122. (set #installType-select
  123.     "How should Future Drive Accelerator started at booting?"
  124. )
  125. (set #installType-select-help
  126.     (cat
  127.         "Startup-Sequence:\n"
  128.         "You are able to to it self.\n"
  129.         "=>Started at earlierst.\n"
  130.         "\n"
  131.         "User-Startup:\n"
  132.         "will be automatically do nearly on all systems.\n"
  133.         "=>Started at second earlierst.\n"
  134.         "\n"
  135.         "WBStartup:\n"
  136.         "Can`t go anything wrong.\n"
  137.         "=>Will only be started if the booting is finished.\n"
  138.         "=>Project Icon.\n"
  139.     )
  140. )
  141. (set #install-end1
  142.     "Type in `S:Startup-Seuence` after SetPatch, StackAttack, SaferPatches, PoolMem.\n\n"
  143. )
  144. (set #install-end2
  145.     "\n"
  146. )
  147.  
  148. (set #install-Pref-Cancel
  149.     "Please configure Future Drive Accelerator, before you are using it."
  150. )
  151.  
  152. (set #install-EndMsg
  153.     "Please install the fastest `CopyMemQuick` replacement, istead of the `MCP-CopyMemQuick` replacement.\nRead `FDA-news.readme`."
  154. )
  155.  
  156.  
  157. (set #patch1_1 (cat "\n\nNow, patching file `"))         ;Dateiname wird eingefügt
  158. (set #patch1_2 (cat "`\nto the MC68000 Version."))
  159.  
  160. (set #ErrorMsg1_1 (cat "\n\nError while patching file `"))       ;Dateiname wird eingefügt
  161. (set #ErrorMsg1_2 (cat "`\n."
  162.                "\n\n\ncase 1 file not located,\n"
  163.                "case 2 its alright the "))        ;Neue Version wird eingefügt
  164.  
  165.  
  166.  
  167. ;===[ German Documentation ]=================================================
  168.  
  169. (if (= @language "deutsch")
  170.  (
  171. (set #bad-kick "Man benötigt Kickstart 2.04 oder höher, um FDA benutzen zu können!")
  172.  
  173. (set #install-start
  174.     (cat
  175.         "\nWillkommen zur Future Drive Accelerator V"#Ver" Installation.\n\n"
  176.         "Geschrieben von Martin Tauchmann\n\n"
  177.         "Das neuste fdaupdate.lha ist bei http://MartinTauchmann.home.pages.de ausfindig zu machen."
  178.     )
  179. )
  180.  
  181. (set #where-FDA "Wohin möchtest Du FDA und FDAView installieren?\nIch werde kein Verzeichniss erstellen.\nEine installation in das \"SYS:WBStartup\" Verzeichniss ist noch später möglich.")
  182.  
  183. (set #where-FDA-help
  184.     (cat
  185.         "Dies ist das Zielverzeichnis vom FDA und FDAView."
  186.         " SYS:System ist ein guter Platz."
  187.     )
  188. )
  189.  
  190. (set #install-select
  191.     (cat
  192.         "Bitte wähle die einzelnen Teile des FDA aus, die"
  193.         " Du installieren möchtest:"
  194.     )
  195. )
  196.  
  197. (set #install-select-help
  198.     (cat
  199.            "Future Drive Accelerator :\n"
  200.            "\n"
  201.            "ca. 32 KB\n"
  202.            "\n"
  203.            "\n"
  204.            "Future Drive Accelerator Guide, HTMl, DVI, PS, texi :\n"
  205.            " mit Statistik-Programm"
  206.            "\n"
  207.            "ca. 270 KB\n"
  208.            "\n"
  209.            "\n"
  210.            "Future Drive Accelerator Preferences :\n"
  211.            "\n"
  212.            "ca. 40 KB\n"
  213.            "\n"
  214.            "\n"
  215.            "Future Drive Accelerator Viewer :\n"
  216.            "\n"
  217.            "ca. 22 KB\n"
  218.     )
  219. )
  220.  
  221. (set #item-FDA "FDA Programm")
  222. (set #item-doc "Future Drive Accelerator Dokumentation")
  223. (set #item-FDAprefs "Future Drive Accelerator Preferences")
  224. (set #item-FDAView "Future Drive Accelerator Viewer")
  225.  
  226. (set #which-CPU
  227.     (cat
  228.         "Wähle die FDA Prozessor-Version aus, die Du gerne installieren möchtest.\n"
  229.         "Dieser Amiga läuft mit einem MC " (DATABASE "cpu")
  230.     )
  231. )
  232.  
  233. (set #where-doc "Wohin möchtest Du die Dokumentation und die Statistiken installieren? Ich erstelle ein Verzeichniss `FDAdoc´")
  234.  
  235. (set #where-FDAprefs "Wohin möchtest Du den FDA Voreinsteller installieren?")
  236.  
  237. (set #where-FDAprefs-help
  238.     (cat
  239.         "Dies ist das Zielverzeichnis des FDA Voreinstellers."
  240.         " Normalerweise sind alle Voreinstellungsprogramme im SYS:Prefs."
  241.     )
  242. )
  243.  
  244.  
  245. (set #doc-select-Lang
  246.     (cat
  247.         "Bitte wähle ein Spache der Dokumentation aus, die"
  248.         " Du installieren möchtest:"
  249.     )
  250. )
  251.  
  252. (set #doc-select
  253.     (cat
  254.         "Bitte wähle das Format der Dokumentation aus, die"
  255.         " Du installieren möchtest:"
  256.     )
  257. )
  258.  
  259. (set #doc-select-help
  260.     (cat
  261.         "Guide :\n"
  262.         "Brauch MultiView oder AmigaGuide.\n"
  263.         "\n"
  264.         "DVI (TeX) : (nur im Extra-Archive)\n"
  265.         "Brauch ShowDVI von z.B. PasTeX.\n"
  266.         "\n"
  267.         "PostScript : (nur im Extra-Archive)\n"
  268.         "Brauch HWG-Post oder Ghostscript zum online lesen,\n"
  269.         "oder einen PostScript Drucker.\n"
  270.         "\n"
  271.         "HTML :\n"
  272.         "Brauch einen WWW-Browser z.B. AmiWeb, Visage, IBrowse, Lynx.\n"
  273.         "\n"
  274.         "TeXinfo : (nur im Extra-Archive)\n"
  275.         "Brauch texinfo von GeekGadget, nur zum Übersetzen nötig.\n"
  276.     )
  277. )
  278.  
  279.  
  280. (set #installType-select
  281.     "Wie soll Future Drive Accelerator beim booten gestartet werden?"
  282. )
  283. (set #installType-select-help
  284.     (cat
  285.         "Startup-Sequence:\n"
  286.         "Darf manuell gemacht werden.\n"
  287.         "=>Wird am frühesten gestartet.\n"
  288.         "\n"
  289.         "User-Startup:\n"
  290.         "Wird bei fast allen Systemen automatisch gemacht.\n"
  291.         "=>Wird am zweit frühesten gestartet.\n"
  292.         "\n"
  293.         "WBStartup:\n"
  294.         "Kann nichts schief gehen.\n"
  295.         "=>Wird erst bei Beedigung des booten gestartet.\n"
  296.         "=>Projekt Icon.\n"
  297.     )
  298. )
  299.  
  300. (set #install-end1
  301.     "Nun darfst Du in die `S:Startup-Seuence` nach SetPatch, StackAttack, SaferPatches, PoolMem.\n\n"
  302. )
  303. (set #install-end2
  304.     "eintippen.\n\n"
  305. )
  306.  
  307. (set #install-Pref-Cancel
  308.     "Bitte erst Future Drive Accelerator einstellen vor der Benutzung."
  309. )
  310.  
  311. (set #install-EndMsg
  312.     "Bitte intallieren Sie den schnellsten `CopyMemQuick` Ersatz, statt dem `MCP-CopyMemQuick` Ersatz.\nLesen Sie das Kapitel `Speed up` in der Dokumentation."
  313. )
  314.  
  315.  
  316. (set #patch1_1 (cat "\n\nJetzt wird die Datei `"))           ;Dateiname wird eingefügt
  317. (set #patch1_2 (cat "`\nfür den MC68000 prepariert."))
  318.  
  319. (set #ErrorMsg1_1 (cat "\n\nDas Patchen der Datei `"))           ;Dateiname wird eingefügt
  320. (set #ErrorMsg1_2 (cat "`\n ist fehlgeschlagen !!!"
  321.                "\n\n\nEntweder wurde das File nicht gefunden,\n"
  322.                "oder es ist bereits die "))        ;Neue Version wird eingefügt
  323.  
  324.  
  325.  )
  326. )
  327.  
  328. ;============================== ENGLISH & GERMAN ?============================;
  329.  
  330. (set #doc-help
  331.     (cat
  332.         "english documentation:\n"
  333.         " o `fda_DviPS.lha` DVI (TeX) and PostScript (GhostScript) formarts,\n"
  334.         " o `fda.lha` AmigaGuide and HTML formats.\n\n"
  335.         "german documentation:\n"
  336.         " o `fda_d_DviPS.lha` DVI (TeX) and PostScript (GhostScript) formarts,\n"
  337.         " o `fda_d_GuidHTML.lha` AmigaGuide and HTML formats."
  338.     )
  339. )
  340.  
  341.  
  342.  
  343. ;-------------------------------------------------
  344. ; Vergleiche Versionen, und patche die Datei
  345. ; Verzeichnis, Datei
  346. ;-------------------------------------------------
  347. (procedure Update #dir #dat #oldfileFullPath #patchPath #gpatchFullPath
  348.  (set #dat2 (tackon #dir #dat))
  349.  
  350.  (working (cat #patch1_1 #dat #patch1_2))
  351.  (set #patch (run (cat #gpatchFullPath" "#oldfileFullPath" "#patchPath #dat".patch \""#dat2"\" NOVERSION") (safe)))
  352.  (if (> #patch 0) (message (cat #ErrorMsg1_1 #dat #ErrorMsg1_2 #dat " Version." ) (ALL))
  353.  )
  354. )
  355. ;============================== PROGRAM-START================================
  356.  
  357. (SET @default-dest "SYS:System/")
  358. (SET #FDA-dest @default-dest)
  359. (SET #FDAprefs-dest "SYS:Prefs/")
  360.  
  361.  
  362. ; Check Kickstart (>= v2.0) Version.
  363.  
  364. (if (< (/ (getversion) 65536) 37)
  365.     (abort #bad-kick)
  366. )
  367.  
  368. (message #install-start (ALL))
  369. (welcome)
  370.  
  371. ;============================ REAL INSTALLATION =============================
  372.  
  373.  
  374.  
  375. (COMPLETE 0)
  376.  
  377.      (SET parts
  378.       (ASKOPTIONS
  379.          (PROMPT    #install-select)
  380.          (HELP    #install-select-help "\n\n" @askoptions-help)
  381.          (CHOICES
  382.             #item-FDA
  383.             #item-FDAView
  384.             #item-doc
  385.             #item-FDAprefs
  386.          )
  387.          (DEFAULT %1011)
  388.       )
  389.       )
  390.  
  391.  
  392. (IF (OR (IN parts 0) (IN parts 1) (IN parts 2) (IN parts 3) )
  393.   (
  394.             (SET #usercpu 1)
  395.  
  396.             (IF (= (DATABASE "cpu") "68020")
  397.               (
  398.                 (SET #usercpu 1)
  399.               )
  400.               (
  401.                 (IF (= (DATABASE "cpu") "68010")
  402.                   (
  403.                     (SET #usercpu 0)
  404.                   )
  405.                   (
  406.                     (IF (= (DATABASE "cpu") "68000")
  407.                       (
  408.                         (SET #usercpu 0)
  409.                       )
  410.                     )
  411.                   )
  412.                 )
  413.               )
  414.             )
  415.  
  416.  
  417.    (IF (= @user-level 2)
  418.      (
  419.          (SET #usercpu
  420.           (ASKCHOICE
  421.              (PROMPT #which-CPU)
  422.              (CHOICES "MC 68000+"
  423.                   "MC 68020+"
  424.              )
  425.              (HELP @askchoice-help
  426.              )
  427.              (DEFAULT #usercpu)
  428.           )
  429.           )
  430.      )
  431.    )
  432.  
  433.   )
  434. )
  435.  
  436. (IF (IN parts 0)
  437.   (
  438.  
  439.     (SET #FDA-dest (ASKDIR (PROMPT #where-FDA)
  440.                (DEFAULT @default-dest)
  441.                (HELP #where-FDA-help "\n\n" @askdir-help)
  442.             )
  443.     )
  444.     (SET @default-dest #FDA-dest)
  445.  
  446.  
  447.    (DELETE (TACKON #FDA-dest "FDAV1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  448.    (DELETE (TACKON #FDA-dest "FDAV1.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  449.    (DELETE (TACKON #FDA-dest "FDAV1.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  450.    (DELETE (TACKON #FDA-dest "FDAV2.0") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  451.    (DELETE (TACKON #FDA-dest "FDAV2.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  452.    (DELETE (TACKON #FDA-dest "FDAV2.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  453.    (DELETE (TACKON #FDA-dest "FDAV2.6") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  454.    (DELETE (TACKON #FDA-dest "FDAV2.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  455.  
  456.    (IF (= #usercpu 0)
  457.      (
  458.     (COPYFILES (SOURCE "FDA.info")
  459.            (DEST #FDA-dest)
  460.            (PROMPT "Copying MC 68000+ Version")
  461.            (SAFE)
  462.     )
  463.  
  464.     (Update #FDA-dest "FDA" "FDA" "MC68000/" "MC68000/GPatch")
  465.      )
  466.      (
  467.        (IF (= #usercpu 1)
  468.          (
  469.         (COPYFILES (SOURCE "FDA")
  470.                (DEST #FDA-dest)
  471.                (PROMPT "Copying MC 68020+ Version")
  472.                (SAFE)
  473.                (INFOS)
  474.         )
  475.          )
  476.        )
  477.      )
  478.    )
  479.  
  480.     (TOOLTYPE (DEST (TACKON #FDA-dest "FDA"))
  481.           (NOPOSITION)
  482.           (safe)
  483.     )
  484.  
  485.   )
  486. )
  487.  
  488. (COMPLETE 25)
  489.  
  490. (SET #vernum (GETVERSION (resident)))
  491. (SET #vernum (/ #vernum 65536))
  492.  
  493. (IF (IN parts 1)
  494.   (
  495.     (IF (< #vernum 36)
  496.       (
  497.         (MESSAGE "You don't have OS2.0.\nFDAView only work with OS2.0 or higher." (ALL))
  498.       )
  499.     )
  500.  
  501.    (DELETE (TACKON #FDA-dest "FDAViewV1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  502.    (DELETE (TACKON #FDA-dest "FDAViewV1.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  503.    (DELETE (TACKON #FDA-dest "FDAViewV1.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  504.    (DELETE (TACKON #FDA-dest "FDAViewV2.0") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  505.    (DELETE (TACKON #FDA-dest "FDAViewV2.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  506.    (DELETE (TACKON #FDA-dest "FDAViewV2.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  507.    (DELETE (TACKON #FDA-dest "FDAViewV2.6") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  508.    (DELETE (TACKON #FDA-dest "FDAViewV2.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  509.  
  510.    (IF (= #usercpu 0)
  511.      (
  512.     (COPYFILES (SOURCE "FDAView.info")
  513.            (DEST #FDA-dest)
  514.            (PROMPT "Copying MC 68000+ Version")
  515.            (SAFE)
  516.     )
  517.  
  518.     (Update #FDA-dest "FDAView" "FDAView" "MC68000/" "MC68000/GPatch")
  519.      )
  520.      (
  521.         (COPYFILES    (SOURCE "FDAView")
  522.             (DEST #FDA-dest)
  523.             (PROMPT "Copying MC 68020+ Version")
  524.             (SAFE)
  525.             (INFOS)
  526.         )
  527.      )
  528.    )
  529.  
  530.     (TOOLTYPE (DEST (TACKON #FDA-dest "FDAView"))
  531.           (NOPOSITION)
  532.           (safe)
  533.     )
  534.  
  535.   )
  536. )
  537.  
  538. (COMPLETE 50)
  539.  
  540.  
  541. (IF (IN parts 2)
  542.   (
  543.     (SET #doc-dest (ASKDIR (PROMPT #where-doc)
  544.                (DEFAULT @default-dest)
  545.                (HELP @askdir-help)
  546.             )
  547.     )
  548.  
  549.     (DELETE (TACKON #doc-dest "FDA.guide#?") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  550.  
  551.     (DELETE (TACKON #doc-dest "DSG") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS) (ALL)))
  552.  
  553.     (COPYFILES (SOURCE "FDAdoc.info")
  554.         (DEST #doc-dest)
  555.     )
  556.  
  557.     (TOOLTYPE (DEST (TACKON #doc-dest "FDAdoc.info"))
  558.           (NOPOSITION)
  559.           (safe)
  560.     )
  561.  
  562.     (SET #doc-dest (TACKON #doc-dest "FDAdoc"))
  563.     (SET @default-dest #doc-dest)
  564.  
  565.     (COPYFILES (SOURCE "FDAdoc/FDA-Benchmarks.guide")
  566.            (DEST #doc-dest)
  567.            (INFOS)
  568.     )
  569.  
  570.     (COPYFILES (SOURCE "FDAdoc/FDA-News.readme")
  571.            (DEST #doc-dest )
  572.            (INFOS)
  573.     )
  574.  
  575.     (COPYFILES (SOURCE "FDAdoc")
  576.            (DEST #doc-dest)
  577.            (pattern "Benchmark-#?")
  578.            (INFOS)
  579.     )
  580.  
  581.     (COPYFILES (SOURCE "FDAdoc/DSG.info")
  582.            (DEST #doc-dest)
  583.     )
  584.  
  585.     (COPYFILES (SOURCE "FDAdoc/DSG")
  586.            (choices "DSG"
  587.             "DSG.guide"
  588.            )
  589.            (DEST (tackon #doc-dest "DSG") )
  590.            (INFOS)
  591.     )
  592.  
  593.     (COPYFILES (SOURCE "FDAdoc/DSG/PPC604_233MHz_060_50MHz_96MB")
  594.            (DEST (tackon #doc-dest "DSG/PPC604_233MHz_060_50MHz_96MB") )
  595.            (pattern "#?")
  596.     )
  597.  
  598.     (COPYFILES (SOURCE "FDAdoc/DSG/BlizzardIV030_50Mhz_16MB")
  599.            (DEST (tackon #doc-dest "DSG/BlizzardIV030_50Mhz_16MB") )
  600.            (pattern "#?")
  601.     )
  602.  
  603.     (COPYFILES (SOURCE "FDAdoc/DSG/TurboJet030_14MHz_2MB")
  604.            (DEST (tackon #doc-dest "DSG/TurboJet030_14MHz_2MB") )
  605.            (pattern "#?")
  606.     )
  607.  
  608.     (SET #bguiExpand 0)
  609.     (IF (= #usercpu 1)
  610.             (IF (>= #vernum 39)
  611.                     (SET #bguiExpand 1)
  612.             )
  613.     )
  614.  
  615.  
  616.     (IF (= #bguiExpand 1)
  617.         (
  618.             (IF (= (getsize "Libs:bgui.library") 123588)
  619.                 (DELETE "Libs:bgui.library" (OPTIONAL "FORCE") (DELOPTS (SAFE) ))
  620.             )
  621.             (copylib
  622.                 (prompt        "Installing the bgui.library Enhanced (68020 & 3.0 compatible)...")
  623.                 (help        @copylib-help)
  624.                 (source        "FDAdoc/DSG/bgui.library")
  625.                 (dest        "Libs:")
  626.                 (optional    force askuser)
  627.                 (confirm)
  628.                 (safe)
  629.             )
  630.         )
  631.         (
  632.             (set #vernum1 (getversion "Libs:bgui.library"))
  633.  
  634. ;            (message #vernum1)
  635. ;            (set #ver1 (/ #vernum1 65536))
  636. ;            (set #rev1 (- #vernum1 (* #ver1 65536) ) )
  637.  
  638.             (IF (< #vernum1 2686986)
  639.                 (Update "libs:" "bgui.library" "FDAdoc/DSG/bgui.library" "FDAdoc/DSG/" "MC68000/GPatch")
  640.             )
  641.  
  642.  
  643.         )
  644.     )
  645.  
  646. (COMPLETE 55)
  647.  
  648.     (SET #docLanguage 0)
  649.  
  650.     (IF (= @language "english")
  651.       (
  652.         (SET #docLanguage 0)
  653.       )
  654.       (
  655.         (IF (= @language "deutsch")
  656.           (
  657.             (SET #docLanguage 1)
  658.           )
  659.         )
  660.       )
  661.     )
  662.  
  663.     (SET #docLanguage
  664.          (ASKCHOICE
  665.         (PROMPT #doc-select-lang)
  666.         (HELP    #doc-help "\n\n" @askoptions-help)
  667.         (CHOICES
  668.             "english"
  669.             "deutsch"
  670.         )
  671.         (DEFAULT #docLanguage)
  672.          )
  673.     )
  674.  
  675.     (IF (= #docLanguage 0)
  676.         (set #docLangExt "")
  677.     )
  678.  
  679.     (IF (= #docLanguage 1)
  680.         (set #docLangExt "_d")
  681.     )
  682.  
  683.  
  684.  
  685.     (SET #docParts
  686.          (ASKOPTIONS
  687.         (PROMPT #doc-select)
  688.         (HELP    #doc-select-help "\n\n" @askoptions-help)
  689.         (CHOICES
  690.             "Guide"
  691.             "DVI (TeX)"
  692.             "PostScript"
  693.             "HTML (WWW)"
  694.             "TeXinfo"
  695.         )
  696.         (DEFAULT %01001)
  697.          )
  698.     )
  699.  
  700.     (set #docPath "FDAdoc")
  701.  
  702. ;    (set #test ("FDA%s.%s" #docLangExt "guide") )
  703. ;    (debug "The value of 'test' is" #test)
  704. ;    (message #test)
  705.  
  706.  
  707.     (IF (IN #docParts 0)
  708.       (
  709.         (set #docFileName ("FDA%s.%s" #docLangExt "guide") )
  710.         (SET #doc (TACKON #docPath #docFileName))
  711.  
  712.         (IF (= (EXISTS #doc) 1)
  713.             (
  714.                 (COPYFILES (SOURCE #doc)
  715.                        (DEST #doc-dest)
  716.                 )
  717.  
  718.                 (IF (< #vernum 39)
  719.                     (
  720.                         (SET #cmd (cat "MC68000/AGuideConv " (TACKON #doc-dest #docFileName)) )
  721. ;                        (MESSAGE #cmd)
  722.                         (set #rc (RUN #cmd (SAFE)))
  723.                     )
  724.                 )
  725.  
  726.                 (COPYFILES (SOURCE (CAT #doc ".info" ))
  727.                        (DEST #doc-dest)
  728.                        (SAFE)
  729.                 )
  730.  
  731.                 (TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
  732.                       (NOPOSITION)
  733.                       (safe)
  734.                 )
  735.             )
  736.             (
  737.                 (message "Please extract the extra archive fda_d_GuidHTML.lha also in the same directory." (ALL))
  738.             )
  739.         )
  740.  
  741.  
  742.  
  743.       )
  744.     )
  745.  
  746. (COMPLETE 60)
  747.  
  748.     (IF (IN #docParts 1)
  749.       (
  750.         (set #docFileName ("FDA%s.%s" #docLangExt "dvi") )
  751.         (SET #doc (TACKON #docPath #docFileName))
  752.         (IF (= (EXISTS #doc) 1)
  753.             (
  754.                 (COPYFILES (SOURCE #doc)
  755.                        (DEST #doc-dest)
  756.                        (INFOS)
  757.                 )
  758.                 (TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
  759.                       (NOPOSITION)
  760.                       (safe)
  761.                 )
  762.             )
  763.             (
  764.                 (message "Please extract the extra archive fda_DviPS.lha or fda_d_DviPS.lha also in the same directory." (ALL))
  765.             )
  766.         )
  767.       )
  768.     )
  769.  
  770. (COMPLETE 65)
  771.  
  772.     (IF (IN #docParts 2)
  773.       (
  774.         (set #docFileName ("FDA%s.%s" #docLangExt "ps") )
  775.         (SET #doc (TACKON #docPath #docFileName))
  776.         (IF (= (EXISTS #doc) 1)
  777.             (
  778.                 (COPYFILES (SOURCE #doc)
  779.                        (DEST #doc-dest)
  780.                        (INFOS)
  781.                 )
  782.                 (TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
  783.                       (NOPOSITION)
  784.                       (safe)
  785.                 )
  786.             )
  787.             (
  788.                 (message "Please extract the extra archive fda_DviPS.lha or fda_d_DviPS.lha also in the same directory." (ALL))
  789.             )
  790.         )
  791.       )
  792.     )
  793.  
  794. (COMPLETE 70)
  795.  
  796.     (IF (IN #docParts 3)
  797.       (
  798.         (IF (= (EXISTS ("FDAdoc/FDA%s_toc.%s" #docLangExt "html")) 1)
  799.             (
  800.                 (COPYFILES (SOURCE "FDAdoc")
  801.                        (DEST #doc-dest)
  802.                        (pattern ("FDA%s??.%s" #docLangExt "html"))
  803.                        (INFOS)
  804.                 )
  805.                 (COPYFILES (SOURCE "FDAdoc")
  806.                        (DEST #doc-dest)
  807.                        (pattern ("FDA%s???.%s" #docLangExt "html"))
  808.                        (INFOS)
  809.                 )
  810.                 (COPYFILES (SOURCE "FDAdoc")
  811.                        (DEST #doc-dest)
  812.                        (pattern ("FDA%s_toc.%s" #docLangExt "html"))
  813.                        (INFOS)
  814.                 )
  815.                 (COPYFILES (SOURCE "FDAdoc")
  816.                        (DEST #doc-dest)
  817.                        (pattern ("FDA%s_foot.%s" #docLangExt "html"))
  818.                        (INFOS)
  819.                 )
  820.                 (TOOLTYPE (DEST (TACKON #doc-dest ("FDA%s_toc.%s" #docLangExt "html")))
  821.                       (NOPOSITION)
  822.                       (safe)
  823.                 )
  824.                 (COPYFILES (SOURCE "FDAdoc")
  825.                        (DEST #doc-dest)
  826.                        (pattern "FDA#?.png")
  827.                 )
  828.             )
  829.             (
  830.                 (message "Please extract the extra archive fda_d_GuidHTML.lha also in the same directory." (ALL))
  831.             )
  832.         )
  833.       )
  834.     )
  835.  
  836. (COMPLETE 75)
  837.  
  838.     (IF (IN #docParts 4)
  839.       (
  840.         (SET #doc-dest-Translator (TACKON #doc-dest "Translator"))
  841.  
  842.         (set #docFileName ("Translator/FDA%s.%s" #docLangExt "tex") )
  843.         (SET #doc (TACKON #docPath #docFileName))
  844.  
  845.         (IF (= (EXISTS #doc) 1)
  846.             (
  847.                 (COPYFILES (SOURCE #doc)
  848.                        (DEST #doc-dest-Translator)
  849.                        (INFOS)
  850.                 )
  851.                 (TOOLTYPE (DEST (TACKON #doc-dest-Translator #docFileName))
  852.                       (NOPOSITION)
  853.                       (safe)
  854.                 )
  855.                 (COPYFILES (SOURCE "FDAdoc/Translator")
  856.                        (DEST #doc-dest-Translator)
  857.                        (pattern "FDA#?.txt")
  858.                 )
  859.                 (DELETE (TACKON #doc-dest "Translator.info") (OPTIONAL "FORCE") (DELOPTS (SAFE) ))
  860.             )
  861.             (
  862.                 (message "Please extract the extra archive fda_DviPS.lha or fda_d_DviPS.lha also in the same directory." (ALL))
  863.             )
  864.         )
  865.       )
  866.     )
  867.  
  868.  
  869.    )
  870. )
  871.  
  872. (COMPLETE 80)
  873.  
  874. (IF (IN parts 3)
  875.   (
  876.     (IF (< #vernum 36)
  877.       (
  878.         (MESSAGE "You don't have OS2.0.\nFDAPref only work with OS2.0 or higher." (ALL))
  879.       )
  880.     )
  881.     (SET @default-dest "SYS:Prefs/")
  882.     (SET #FDAprefs-dest (ASKDIR (PROMPT #where-FDAprefs)
  883.                (DEFAULT @default-dest)
  884.                (HELP #where-FDAprefs-help "\n\n" @askdir-help)
  885.            )
  886.     )
  887.     (SET @default-dest #FDAprefs-dest)
  888.  
  889.    (DELETE (TACKON #FDAprefs-dest "FDAPref1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  890.    (DELETE (TACKON #FDAprefs-dest "FDAPref1.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  891.    (DELETE (TACKON #FDAprefs-dest "FDAPref1.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  892.    (DELETE (TACKON #FDAprefs-dest "FDAPref2.0") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  893.    (DELETE (TACKON #FDAprefs-dest "FDAPref2.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  894.    (DELETE (TACKON #FDAprefs-dest "FDAPref2.4") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  895.    (DELETE (TACKON #FDAprefs-dest "FDAPref2.6") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  896.    (DELETE (TACKON #FDAprefs-dest "FDAPref2.8") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))
  897.  
  898.    (IF (= #usercpu 0)
  899.      (
  900.     (COPYFILES (SOURCE "FDAPref.info")
  901.            (DEST #FDAprefs-dest)
  902.            (PROMPT "Copying MC 68000+ Version")
  903.            (SAFE)
  904.     )
  905.  
  906.     (Update #FDAprefs-dest "FDAPref" "FDAPref" "MC68000/" "MC68000/GPatch")
  907.      )
  908.      (
  909.         (COPYFILES    (SOURCE "FDAPref")
  910.             (DEST #FDAprefs-dest)
  911.             (PROMPT "Copying MC 68020+ Version")
  912.             (SAFE)
  913.             (INFOS)
  914.         )
  915.      )
  916.    )
  917.  
  918.     (TOOLTYPE (DEST (TACKON #FDAprefs-dest "FDAPref"))
  919.           (NOPOSITION)
  920.           (safe)
  921.     )
  922.  
  923.     (SET #cmd ("MC68000/DoIconLite %s CTT=\"MAINPROGPATH=%s/\" num=5 QUIET" (TACKON #FDAprefs-dest "FDAPref" ) #FDA-dest ) )
  924.     (set #rc (RUN #cmd (SAFE)))
  925.  
  926.  
  927.    )
  928. )
  929.  
  930.  
  931. (COMPLETE 98)
  932.  
  933.  
  934.  
  935.     (SET #installType 2)
  936.     (IF (= @user-level 2)
  937.         (
  938.            (SET #installType 0)
  939.         )
  940.     )
  941.     (
  942.         (IF (= @user-level 1)
  943.             (
  944.                (SET #installType 1)
  945.             )
  946.         )
  947.     )
  948.  
  949.  
  950.     (IF (< #installType 2)
  951.          (SET #installType
  952.           (ASKCHOICE
  953.              (PROMPT    #installType-select)
  954.              (HELP    #installType-select-help "\n\n" @askoptions-help)
  955.              (CHOICES
  956.                 "S:Startup-Sequence (only informations)"
  957.                 "S:User-Startup"
  958.                 "SYS:WBStartup"
  959.              )
  960.              (DEFAULT #installType)
  961.           )
  962.           )
  963.     )
  964.  
  965.     (IF (= #installType 0)
  966.         (message #install-end1
  967.             "RUN <>NIL: "#FDA-dest"FDA QUIET\n"
  968.             #install-end2
  969.         )
  970.     )
  971.  
  972.     (IF (= #installType 1)
  973.         (
  974.             (SET #cmd ("RUN <>NIL: %sFDA QUIET" #FDA-dest) )
  975.             (startup "FDA"
  976.                 (prompt "Adding to the \"S:user-startup\":\n\n"
  977.                     "RUN <>NIL: "#FDA-dest"FDA QUIET\n"
  978.                 )
  979.                 (help "No help for this function")
  980.                 (COMMAND #cmd)
  981.             )
  982.         )
  983.     )
  984.  
  985.     (IF (= #installType 2)
  986.         (
  987.             (COPYFILES (SOURCE "FDA.info")
  988.                    (DEST "SYS:WBStartup")
  989.                    (safe)
  990.             )
  991.             (set #rc (RUN "MC68000/IconType SYS:WBStartup/FDA P" (SAFE)))
  992.             (TOOLTYPE (DEST "SYS:WBStartup/FDA")
  993.                   (SETDEFAULTTOOL (TACKON #FDA-dest "FDA"))
  994.                   (NOPOSITION)
  995.                   (safe)
  996.             )
  997.             (set #rc (RUN "MC68000/DoIconLite SYS:WBStartup/FDA TTT=2 QUIET" (SAFE)))
  998.             (SET #cmd ("MC68000/DoIconLite %s CTT=\"MAINPROGPATH=Sys:WBStartup/\" num=5 QUIET" (TACKON #FDAprefs-dest "FDAPref") ) )
  999.             (set #rc (RUN #cmd (SAFE)))
  1000.         )
  1001.     )
  1002.  
  1003.  
  1004. (COMPLETE 99)
  1005.  
  1006. (working "Running FDAPref")
  1007. (set #rc (RUN (cat (TACKON #FDAprefs-dest "FDAPref") " EDIT MAINPROGPATH=\""#FDA-dest "\"" ) ))
  1008. (if (= #rc 10)
  1009.  (
  1010.     (message #install-Pref-Cancel (ALL))
  1011.  )
  1012.  (
  1013.     (set #rc (RUN (cat "RUN <>NIL: " (TACKON #FDA-dest "FDA") " QUIET") ))
  1014.     (RUN "Wait 1")
  1015.     (set #rc (RUN (CAT "RUN <>NIL: " (TACKON #FDA-dest "FDAView")  ) ))
  1016.  )
  1017. )
  1018.  
  1019.  
  1020. (message #install-EndMsg (ALL))
  1021.  
  1022. (COMPLETE 100)
  1023.  
  1024. (SET @default-dest #FDA-dest)
  1025.  
  1026.  
  1027. (IF (= (exists "FDAdoc/FDA-News.readme") 1)
  1028.     (set #rc (RUN "RUN SYS:Utilities/MultiView FDAdoc/FDA-News.readme"))
  1029. )
  1030.  
  1031. (exit)
  1032.